%mode

:- set(i,2).
:- set(verbose,1).

:- modeh(1,fillede(+personne,+personne)).
:- modeb(1,sexe(+personne,#sexe)).
:- modeb(1,mere(+personne,-personne)).
:- modeb(*,mere(-personne,+personne)).
:- modeb(1,pere(+personne,-personne)).
:- modeb(*,pere(-personne,+personne)).

:- determination(fillede/2,sexe/2).
:- determination(fillede/2,mere/2).
:- determination(fillede/2,pere/2).

%type definition

sexe(ann,femme).
sexe(mary,femme).
sexe(rosy,femme).
sexe(eve,femme).
sexe(lisa,femme).
sexe(tom,homme).
sexe(bob,homme).

mere(mary,ann).
mere(tom,ann).
mere(rosy,mary).
pere(eve,tom).
pere(lisa,tom).
pere(bob,tom).

